Imports System.IO
Imports System.Xml
Public Class ItemEditor
#Region "Constants and Other"
    Inherits System.Windows.Forms.Form
    Implements IMessageFilter
    Private WM_KEYDOWN As Integer = &H100
    Private WM_KEYUP As Integer = &H101
#End Region
#Region "Dimensions and Variables"
    Public requiredlevel As String
    Public bash As String
    Public slash As String
    Public pierce As String
    Public fist As String
    Public exotic As String
    Public weight As String
    Public value As String
    Public durability As String
    Public affects As String
    Public armortype As String
    Public Valuetemp As String
    Public OverwriteNum As String
    Public OverwriteInformation As String
    Public AT, ET, PR, LV, SE, BA, SA, PA, FA, EA, PU, CO, MA, WE As String 'used for armor
    Public WpN, WdT, WdE, WcS, WaO, WdA, WtH, WlR, WcO, WpA As String 'used for weapons
    Dim sErr As String
    Dim bAns As Boolean
    Dim ItemData As String
    Dim compileready As Boolean = False
    Dim TotalItems As String
#End Region
#Region "Functions"
#Region "Loads XML Databases"
    Function AddToList(ByVal ListName As String, Optional ByVal IsIndex As Boolean = False)
        'declare xml dimensions
        Dim m_xmld As XmlDocument
        Dim m_nodelist As XmlNodeList
        Dim m_node As XmlNode
        'other dimensions
        Try
            m_xmld = New XmlDocument()
            If IsIndex = False Then
                m_xmld.Load(Replace(Replace(Debugger.DirItems, "Items.TG", "TL." + ListName + ".xml"), "\\", "\"))
            Else
                MISCTYPE.Items.Clear()
                m_xmld.Load(Replace(Replace(Debugger.DirItems, "Items.TG", "TL.Index.xml"), "\\", "\"))
            End If
            m_nodelist = m_xmld.SelectNodes("/itemlist/item")
            For Each m_node In m_nodelist
                'CurrentMaterial = m_node.Attributes.GetNamedItem("name").Value 'item number
                If IsIndex = False Then
                    ListBox1.Items.Add(m_node.ChildNodes.Item(0).ChildNodes.Item(0).InnerText) 'grabs and adds next item
                Else
                    MISCTYPE.Items.Add(m_node.Attributes.GetNamedItem("name").Value) 'grabs and adds next item
                End If
            Next
            Return 1
        Catch errorVariable As Exception
            MessageBox.Show(errorVariable.ToString())
            Return 0
        End Try
    End Function
    Function RetrieveMaterialQuality(ByVal material As String)
        'declare xml dimensions
        Dim m_xmld As XmlDocument
        Dim m_nodelist As XmlNodeList
        Dim m_node As XmlNode
        'other dimensions
        Dim CurrentMaterial As String 'this is the item number currently loaded in xml data
        Try
            m_xmld = New XmlDocument()
            m_xmld.Load(Replace(Replace(Debugger.DirItems, "Items.TG", "ML.Materials.xml"), "\\", "\"))
            m_nodelist = m_xmld.SelectNodes("/materiallist/material")
            For Each m_node In m_nodelist
                CurrentMaterial = m_node.Attributes.GetNamedItem("name").Value 'item number
                If CurrentMaterial = material Then
                    requiredlevel = Val(m_node.ChildNodes.Item(0).ChildNodes.Item(0).InnerText) 'requiredlevel
                    bash = m_node.ChildNodes.Item(1).ChildNodes.Item(0).InnerText 'bashac
                    slash = m_node.ChildNodes.Item(2).ChildNodes.Item(0).InnerText 'slashac
                    pierce = m_node.ChildNodes.Item(3).ChildNodes.Item(0).InnerText 'pierceac
                    fist = m_node.ChildNodes.Item(4).ChildNodes.Item(0).InnerText 'fistac
                    exotic = m_node.ChildNodes.Item(5).ChildNodes.Item(0).InnerText 'exoticac
                    weight = m_node.ChildNodes.Item(6).ChildNodes.Item(0).InnerText 'weight
                    value = m_node.ChildNodes.Item(7).ChildNodes.Item(0).InnerText 'value
                    durability = m_node.ChildNodes.Item(8).ChildNodes.Item(0).InnerText 'durability
                    armortype = m_node.ChildNodes.Item(9).ChildNodes.Item(0).InnerText 'armortype
                    affects = m_node.ChildNodes.Item(10).ChildNodes.Item(0).InnerText 'affects
                    Exit For
                End If
            Next
            Return 1
        Catch errorVariable As Exception
            MessageBox.Show(errorVariable.ToString())
            Return 0
        End Try
    End Function
    Function DetermineArmorFormat(ByVal ArmorNumber As Short)
        'declare xml dimensions
        Dim m_xmld As XmlDocument
        Dim m_nodelist As XmlNodeList
        Dim m_node As XmlNode
        'other dimensions
        Dim CurrentArmor As String 'this is the item number currently loaded in xml data
        Try
            m_xmld = New XmlDocument()
            m_xmld.Load(Replace(Replace(Debugger.DirItems, "Items.TG", "TL.Armor.xml"), "\\", "\"))
            m_nodelist = m_xmld.SelectNodes("/itemlist/item")
            For Each m_node In m_nodelist
                CurrentArmor = m_node.Attributes.GetNamedItem("number").Value 'item number
                If CurrentArmor = ArmorNumber Then
                    AT = Val(m_node.ChildNodes.Item(0).ChildNodes.Item(0).InnerText) 'Armor Name
                    ET = m_node.ChildNodes.Item(1).ChildNodes.Item(0).InnerText 'Equipment Type
                    PR = m_node.ChildNodes.Item(2).ChildNodes.Item(0).InnerText 'Proficiency Requirement
                    LV = m_node.ChildNodes.Item(3).ChildNodes.Item(0).InnerText 'Level Requirement
                    SE = m_node.ChildNodes.Item(4).ChildNodes.Item(0).InnerText 'Gender Requirement
                    BA = m_node.ChildNodes.Item(5).ChildNodes.Item(0).InnerText 'Bash AC
                    SA = m_node.ChildNodes.Item(6).ChildNodes.Item(0).InnerText 'Slash AC
                    PA = m_node.ChildNodes.Item(7).ChildNodes.Item(0).InnerText 'Pierce AC
                    FA = m_node.ChildNodes.Item(8).ChildNodes.Item(0).InnerText 'Fist AC
                    EA = m_node.ChildNodes.Item(9).ChildNodes.Item(0).InnerText 'Exotic AC
                    PU = m_node.ChildNodes.Item(10).ChildNodes.Item(0).InnerText 'Purchasable Area
                    CO = m_node.ChildNodes.Item(11).ChildNodes.Item(0).InnerText 'Worth
                    MA = m_node.ChildNodes.Item(12).ChildNodes.Item(0).InnerText 'Affected By Materials
                    WE = m_node.ChildNodes.Item(13).ChildNodes.Item(0).InnerText 'Weight
                    Exit For
                End If
            Next
            Return 1
        Catch errorVariable As Exception
            MessageBox.Show(errorVariable.ToString())
            Return 0
        End Try
    End Function
    Function DetermineWeaponFormat(ByVal WeaponNumber As Short)
        'declare xml dimensions
        Dim m_xmld As XmlDocument
        Dim m_nodelist As XmlNodeList
        Dim m_node As XmlNode
        'other dimensions
        Dim CurrentWeapon As String 'this is the item number currently loaded in xml data
        Try
            m_xmld = New XmlDocument()
            m_xmld.Load(Replace(Replace(Debugger.DirItems, "Items.TG", "TL.Weapons.xml"), "\\", "\"))
            m_nodelist = m_xmld.SelectNodes("/itemlist/item")
            For Each m_node In m_nodelist
                CurrentWeapon = m_node.Attributes.GetNamedItem("number").Value 'item number
                If CurrentWeapon = WeaponNumber Then
                    WpN = Val(m_node.ChildNodes.Item(0).ChildNodes.Item(0).InnerText) 'Weapon Name
                    WdT = m_node.ChildNodes.Item(1).ChildNodes.Item(0).InnerText 'Damage Type
                    WdE = m_node.ChildNodes.Item(2).ChildNodes.Item(0).InnerText 'Weapon Description
                    WcS = m_node.ChildNodes.Item(3).ChildNodes.Item(0).InnerText 'Class Specific
                    WaO = m_node.ChildNodes.Item(4).ChildNodes.Item(0).InnerText 'Area of Affect
                    WdA = m_node.ChildNodes.Item(5).ChildNodes.Item(0).InnerText 'Damage
                    WtH = m_node.ChildNodes.Item(6).ChildNodes.Item(0).InnerText 'Two-handed
                    WlR = m_node.ChildNodes.Item(7).ChildNodes.Item(0).InnerText 'Level Requirement
                    WcO = m_node.ChildNodes.Item(8).ChildNodes.Item(0).InnerText 'Worth
                    WpA = m_node.ChildNodes.Item(9).ChildNodes.Item(0).InnerText 'Purchasable Area
                    Exit For
                End If
            Next
            Return 1
        Catch errorVariable As Exception
            MessageBox.Show(errorVariable.ToString())
            Return 0
        End Try
    End Function
#End Region
    Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
        Dim keyCode As Keys = CType(CInt(m.WParam), Keys) And Keys.KeyCode
        If m.Msg = WM_KEYDOWN And keyCode = Keys.Escape Then
            Me.Close()
            Application.RemoveMessageFilter(Me) : Return True
        End If
        Return False
    End Function
    Public Function GetFileContents(ByVal FullPath As String, _
          Optional ByRef ErrInfo As String = "") As String

        Dim strContents As String
        Dim objReader As StreamReader
        Try
            objReader = New StreamReader(FullPath)
            strContents = objReader.ReadToEnd()
            objReader.Close()
            objReader.Dispose()
            Return strContents
        Catch Ex As Exception
            Return ""
            ErrInfo = Ex.Message
            MsgBox(ErrInfo, MsgBoxStyle.Critical, "ERROR!")
        End Try
    End Function
    Public Function SaveTextToFile(ByVal strData As String, _
     ByVal FullPath As String, _
       Optional ByVal ErrInfo As String = "") As Boolean

        Dim bAns As Boolean = False
        Dim trynum As Short = 1
        Dim objReader As StreamWriter
        While bAns = False
            Try
                objReader = New StreamWriter(FullPath)
                objReader.Write(strData)
                objReader.Close()
                bAns = True
            Catch Ex As Exception
                ErrInfo = Ex.Message
                If trynum = 1000 Then
                    MsgBox(ErrInfo, MsgBoxStyle.Critical, "ERROR!")
                    bAns = True
                End If
            End Try
        End While
        Return bAns
    End Function
    Function AddZerosBefore(ByVal lengthOfStringRequested As Integer, ByVal Str As String) As String
        If lengthOfStringRequested > Len(Str) Then
            Dim TempInt As Integer
            Dim Amount As Integer = lengthOfStringRequested - Len(Str)
            For TempInt = 1 To Amount Step 1
                Str = "0" + Str
            Next
            Return Str
        Else 'number is invalid, result in no changes
            Return Str
        End If
    End Function
#End Region
    Public Sub SND(ByVal Txt As String)
        DebugOutput.Select(Len(DebugOutput.Text), 0)
        Txt = "/Y " + Txt + "/Y"
        Dim Switches As Integer = -1
        Dim TempStr As String
        Dim TempStr2 As String
        Dim TempInt As Integer
        Dim TempInt2 As Integer = 0
        For TempInt = 1 To Len(Txt) Step 1
            TempStr = Mid(Txt, TempInt, 1)
            If TempStr = "/" Then
                If Mid(Txt, TempInt, 2) = "/B" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&HFF)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/b" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&H66)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/C" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&HFFFF)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/c" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&H6666)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/M" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&HFF00FF)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/m" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&H660066)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/y" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&H666600)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/Y" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&HFFFF00)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/g" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&H6600)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/G" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&HFF00)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/w" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&H666666)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/W" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&HAAAAAA)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/z" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&H333333)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/Z" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&HFFFFFF)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/R" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&HFF0000)
                    TempInt2 = TempInt
                    Switches += 1
                ElseIf Mid(Txt, TempInt, 2) = "/r" Then
                    If TempInt2 <> 0 Then
                        TempStr2 = Mid(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Txt, "/b", ""), "/B", ""), "/g", ""), "/G", ""), "/m", ""), "/M", ""), "/w", ""), "/W", ""), "/y", ""), "/Y", ""), "/z", ""), "/Z", ""), "/c", ""), "/C", ""), "/r", ""), "/R", ""), TempInt2 - Switches * 2, TempInt - TempInt2 - 2)
                        DebugOutput.SelectedText = TempStr2
                    End If
                    DebugOutput.SelectionColor = Color.FromArgb(&H660000)
                    TempInt2 = TempInt
                    Switches += 1
                End If
            End If
        Next
        DebugOutput.SelectedText = Chr(13)
    End Sub
#Region "Compute Worth"
    Public Sub comworth(ByVal Weapontypeworth As String, ByVal value As String)
        Dim Tempmid As String = Mid(Weapontypeworth, Weapontypeworth.Length - 3, 4)
        Dim Valuenum As String = Replace(Replace(Replace(value, " Vern", ""), " Dover", ""), " Sovern", "")
        If value = "0" Then
            Valuetemp = "No value"
        ElseIf value = "1/4 Value" Or value = "1/4" Then
            If Tempmid = "Vern" Then
                Tempmid = " Vern"
            ElseIf Tempmid = "over" Then
                Tempmid = " Dover"
            ElseIf Tempmid = "vern" Then
                Tempmid = " Sovern"
            End If
            Valuetemp = Str(Val(Mid(Weapontypeworth, 1, Weapontypeworth.Length - 2)) / 4) + Tempmid
        ElseIf value = "1/2 Value" Or value = "1/2" Then
            If Tempmid = "Vern" Then
                Tempmid = " Vern"
            ElseIf Tempmid = "over" Then
                Tempmid = " Dover"
            ElseIf Tempmid = "vern" Then
                Tempmid = " Sovern"
            End If
            Valuetemp = Str(Val(Mid(Weapontypeworth, 1, Weapontypeworth.Length - 2)) / 2) + Tempmid
        ElseIf value = "3/4 Value" Or value = "3/4" Then
            If Tempmid = "Vern" Then
                Tempmid = " Vern"
            ElseIf Tempmid = "over" Then
                Tempmid = " Dover"
            ElseIf Tempmid = "vern" Then
                Tempmid = " Sovern"
            End If
            Valuetemp = Str(3 * Val(Mid(Weapontypeworth, 1, Weapontypeworth.Length - 2)) / 4) + Tempmid
        Else
            If Valuetemp = "Vern" Then
                If Tempmid = "Vern" Then
                    Valuetemp = Str(Val(Valuenum) + Val(Weapontypeworth)) + " Vern"
                ElseIf Tempmid = "over" Then
                    Valuetemp = Weapontypeworth + ", " + Valuenum + " Vern"
                ElseIf Tempmid = "vern" Then
                    Valuetemp = Weapontypeworth + ", " + Valuenum + " Vern"
                End If
            ElseIf Valuetemp = "over" Then
                If Tempmid = "Vern" Then
                    Valuetemp = Valuenum + " Dover, " + Weapontypeworth
                ElseIf Tempmid = "over" Then
                    Valuetemp = Str(Val(Valuenum) + Val(Weapontypeworth)) + " Dover"
                ElseIf Tempmid = "vern" Then
                    Valuetemp = Weapontypeworth + ", " + Valuenum + " Dover"
                End If
            ElseIf Valuetemp = "vern" Then
                If Tempmid = "Vern" Then
                    Valuetemp = Valuenum + " Sovern, " + Weapontypeworth
                ElseIf Tempmid = "over" Then
                    Valuetemp = Valuenum + " Sovern, " + Weapontypeworth
                ElseIf Tempmid = "vern" Then
                    Valuetemp = Str(Val(Valuenum) + Val(Weapontypeworth)) + " Sovern"
                End If
            End If
        End If
    End Sub
    Public Sub comworth2(ByVal Armortypeworth As String, ByVal value As String)
        If Len(value) > 5 And Len(Armortypeworth) > 5 Then
            value = Mid(value, 2, value.Length - 1)
            Dim Tempmid As String = Mid(Armortypeworth, Armortypeworth.Length - 3, 4)
            Dim Valuenum As String = Replace(Replace(Replace(value, " Vern", ""), " Dover", ""), " Sovern", "")
            Valuetemp = Mid(value, value.Length - 3, 4)
            If value = "0" Then
                Valuetemp = "No value"
            ElseIf value = "1/4 Value" Or value = "1/4" Then
                If Tempmid = "Vern" Then
                    Tempmid = " Vern"
                ElseIf Tempmid = "over" Then
                    Tempmid = " Dover"
                ElseIf Tempmid = "vern" Then
                    Tempmid = " Sovern"
                End If
                Valuetemp = Str(Val(Mid(Armortypeworth, 1, Armortypeworth.Length - 2)) / 4) + Tempmid
            ElseIf value = "1/2 Value" Or value = "1/2" Then
                If Tempmid = "Vern" Then
                    Tempmid = " Vern"
                ElseIf Tempmid = "over" Then
                    Tempmid = " Dover"
                ElseIf Tempmid = "vern" Then
                    Tempmid = " Sovern"
                End If
                Valuetemp = Str(Val(Mid(Armortypeworth, 1, Armortypeworth.Length - 2)) / 2) + Tempmid
            ElseIf value = "3/4 Value" Or value = "3/4" Then
                If Tempmid = "Vern" Then
                    Tempmid = " Vern"
                ElseIf Tempmid = "over" Then
                    Tempmid = " Dover"
                ElseIf Tempmid = "vern" Then
                    Tempmid = " Sovern"
                End If
                Valuetemp = Str(3 * Val(Mid(Armortypeworth, 1, Armortypeworth.Length - 2)) / 4) + Tempmid
            Else
                If Valuetemp = "Vern" Then
                    If Tempmid = "Vern" Then
                        Valuetemp = Str(Val(Valuenum) + Val(Armortypeworth)) + " Vern"
                    ElseIf Tempmid = "over" Then
                        Valuetemp = Armortypeworth + ", " + Valuenum + " Vern"
                    ElseIf Tempmid = "vern" Then
                        Valuetemp = Armortypeworth + ", " + Valuenum + " Vern"
                    End If
                ElseIf Valuetemp = "over" Then
                    If Tempmid = "Vern" Then
                        Valuetemp = Valuenum + " Dover, " + Armortypeworth
                    ElseIf Tempmid = "over" Then
                        Valuetemp = Str(Val(Valuenum) + Val(Armortypeworth)) + " Dover"
                    ElseIf Tempmid = "vern" Then
                        Valuetemp = Armortypeworth + ", " + Valuenum + " Dover"
                    End If
                ElseIf Valuetemp = "vern" Then
                    If Tempmid = "Vern" Then
                        Valuetemp = Valuenum + " Sovern, " + Armortypeworth
                    ElseIf Tempmid = "over" Then
                        Valuetemp = Valuenum + " Sovern, " + Armortypeworth
                    ElseIf Tempmid = "vern" Then
                        Valuetemp = Str(Val(Valuenum) + Val(Armortypeworth)) + " Sovern"
                    End If
                End If
            End If
        End If
    End Sub
#End Region
#Region "Create Items"
    Private Sub CreateWeapon(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim type As Short = Val(Mid(WeaponType.Text, 1, 2))
        Dim craftsmanship As Short = Val(Mid(WeaponCraftsmanship.Text, 1, 2))
        Dim quality As Short = Val(Mid(WeaponQuality.Text, 1, 1))
        Dim qualityflag As String = ""
        If quality = 0 Then
            qualityflag = "//cW"
        ElseIf quality = 1 Then
            qualityflag = "//cB"
        ElseIf quality = 2 Then
            qualityflag = "//cM"
        ElseIf quality = 3 Then
            qualityflag = "//cY"
        End If
        Dim material As String = Mid(WeaponMaterial.Text, 5, Len(WeaponMaterial.Text))
        Dim suffix As String = Mid(WeaponSuffix.Text, 5, Len(WeaponSuffix.Text))
        If suffix <> "No magical suffix" Then suffix = " " + suffix Else suffix = ""
        Dim prefix As String = Mid(WeaponPrefix.Text, 5, Len(WeaponPrefix.Text))
        If prefix <> "No magical prefix" Then prefix = " " + prefix Else prefix = ""
        Dim addaffects As String = ""
        If prefix <> "" Then addaffects = prefix
        If suffix <> "" Then If prefix <> "" Then addaffects += "," + suffix Else addaffects = suffix
        Dim VOWEL As String
        If LCase(Mid(WeaponCraftsmanship.Text, 5, 1)) = "a" Then
            VOWEL = "An "
        ElseIf LCase(Mid(WeaponCraftsmanship.Text, 5, 1)) = "e" Then
            VOWEL = "An "
        ElseIf LCase(Mid(WeaponCraftsmanship.Text, 5, 1)) = "i" Then
            VOWEL = "An "
        ElseIf LCase(Mid(WeaponCraftsmanship.Text, 5, 1)) = "o" Then
            VOWEL = "An "
        ElseIf LCase(Mid(WeaponCraftsmanship.Text, 5, 1)) = "u" Then
            VOWEL = "An "
        Else
            VOWEL = "A "
        End If
        Dim Damagetype As String = ""
        Dim Extendeddesc As String = ""
        Dim classspecific As String = ""
        Dim aoe As String = ""
        Dim damage As String = ""
        Dim twohanded As String = ""
        Dim lvlreq As String = ""
        Dim worth As String = ""
        Dim taffects As String = ""
        Dim pa As String = ""
        Dim viridnum As String = "0"
        Dim wtype As String = ""
        Dim ERRORnum As Short = 0
        SND("/GLoading Item Database...")
        ItemData = GetFileContents(Debugger.DirItems, sErr) : OverwriteInformation = ""
        If Item_New.Checked = True Then
            If InStr(ItemData, "TOTAL#") > 0 Then
                Dim tmp1 As Integer
                For tmp1 = InStr(ItemData, "TOTAL#") To Len(ItemData) Step 1
                    If Mid(ItemData, tmp1, 1) = "(" Then
                        viridnum = LTrim(Str(Val(Mid(ItemData, InStr(ItemData, "TOTAL#") + 6, tmp1 - InStr(ItemData, "TOTAL#") - 6)) + 1))
                        Exit For
                    End If
                Next
                For tmp1 = InStr(ItemData, "TOTAL#") To Len(ItemData) Step 1
                    If Mid(ItemData, tmp1, 1) = "(" Then
                        viridnum = LTrim(Str(Val(Mid(ItemData, InStr(ItemData, "TOTAL#") + 6, tmp1 - InStr(ItemData, "TOTAL#") - 6)) + 1))
                        ItemData = Replace(ItemData, Mid(ItemData, InStr(ItemData, "TOTAL#"), 8 + Len(viridnum) * 2), "TOTAL#" + viridnum + "(" + viridnum + ")")
                        Exit For
                    End If
                Next
            Else
                SND("/RERROR: Database corrupt!")
                ERRORnum += 1
            End If
        End If
        If Item_New.Checked = False Then
            OverwriteNum = LTrim(Str(Item_VNUM.Text))
            viridnum = OverwriteNum
        End If
        SND("/wVIRID/z#" + viridnum + "/W(/c" + viridnum + "/W)")
        OverwriteInformation += "VIRID#" + viridnum + "(" + viridnum + ")" + Chr(13)
        SND("/wITEMT/z#" + viridnum + "/W(/c5/W)")
        OverwriteInformation += "ITEMT#" + viridnum + "(5)" + Chr(13)
        SND("/wITEMC/z#" + viridnum + "/W(/c00/W)")
        OverwriteInformation += "ITEMC#" + viridnum + "(00)" + Chr(13)
        If W_CustomName.Checked = True Then : SND("/wITEMN/z#" + viridnum + "/W(/c" + qualityflag + WeaponCustomName.Text + "/W)") : OverwriteInformation += "ITEMN#" + viridnum + "(" + Replace(qualityflag, "/c", "") + WeaponCustomName.Text + ")" + Chr(13) : End If
        If W_CustomName.Checked = False Then : SND("/wITEMN/z#" + viridnum + "/W(/c" + qualityflag + VOWEL + Mid(WeaponCraftsmanship.Text, 5, Len(WeaponCraftsmanship.Text)) + prefix + " " + material + wtype + suffix + "/W)") : OverwriteInformation += "ITEMN#" + viridnum + "(" + Replace(qualityflag, "/c", "") + VOWEL + Mid(WeaponCraftsmanship.Text, 5, Len(WeaponCraftsmanship.Text)) + prefix + " " + material + wtype + suffix + ")" + Chr(13) : End If
        'load the material, if the material fails to load it shows an error message, after that message application should exit
        If RetrieveMaterialQuality(LTrim(Mid(WeaponMaterial.Text, 4, Len(WeaponMaterial.Text)))) = 0 Then Application.Exit()
        DetermineWeaponFormat(type)
        ' WpN '00:[Seax]   - Weapon Number and Weapon Name
        ' WdT 'pierce      - Damage Type
        ' WdE 'Dagger      - Weapon description
        ' WcS 'No          - Class Specific
        ' WaO 'Melee       - Area of Affect
        ' WdA '1d4         - Damage
        ' WtH 'No          - Two-handed
        ' WlR '35          - Level Requirement
        ' WcO '40 Dover    - Weapon Cost
        ' WpA 'New Saellem - Purchasable Area
        Damagetype = WdT
        Extendeddesc = WdE
        classspecific = WcS
        aoe = WaO
        If Damagetype = "Pierce" Then
            damage = WdA + pierce
        ElseIf Damagetype = "Slash" Then
            damage = WdA + slash
        ElseIf Damagetype = "Bash" Then
            damage = WdA + bash
        ElseIf Damagetype = "Fist" Then
            damage = WdA + fist
        ElseIf Damagetype = "Exotic" Then
            damage = WdA + exotic
        End If
        twohanded = WtH
        If requiredlevel > Val(WlR) Then
            lvlreq = LTrim(requiredlevel)
        Else
            lvlreq = LTrim(WlR)
        End If
        comworth(WcO, value)
        worth = LTrim(Valuetemp)
        If affects <> "" Then If addaffects <> "" Then addaffects = "," + addaffects
        If affects & addaffects = "" Then affects = "None"
        pa = LTrim(WpA)
        If LCase(Mid(wtype, 1, 1)) = "a" Then : VOWEL = "An"
        ElseIf LCase(Mid(wtype, 1, 1)) = "e" Then : VOWEL = "An"
        ElseIf LCase(Mid(wtype, 1, 1)) = "i" Then : VOWEL = "An"
        ElseIf LCase(Mid(wtype, 1, 1)) = "o" Then : VOWEL = "An"
        ElseIf LCase(Mid(wtype, 1, 1)) = "u" Then : VOWEL = "An"
        Else : VOWEL = "A" : End If
        SND("/wSHORT/z#" + viridnum + "/W(/c" + VOWEL + wtype + "/W)")
        OverwriteInformation += "SHORT#" + viridnum + "(" + VOWEL + wtype + ")" + Chr(13)
        VOWEL += " "
        If WeaponCustomDescription.Enabled = False Then
            If W_CustomName.Checked = True Then : SND("/wLONGD/z#" + viridnum + "/W(/c" + WeaponCustomName.Text + " is here./W)") : OverwriteInformation += "LONGD#" + viridnum + "(" + WeaponCustomName.Text + " is here.)" + Chr(13) : End If
            If W_CustomName.Checked = False Then : SND("/wLONGD/z#" + viridnum + "/W(/c" + VOWEL + Mid(WeaponCraftsmanship.Text, 5, Len(WeaponCraftsmanship.Text)) + prefix + " " + material + wtype + suffix + " is here./W)") : OverwriteInformation += "LONGD#" + viridnum + "(" + VOWEL + Mid(WeaponCraftsmanship.Text, 5, Len(WeaponCraftsmanship.Text)) + prefix + " " + material + wtype + suffix + " is here.)" + Chr(13) : End If
        Else
            SND("/wLONGD/z#" + viridnum + "/W(/c" + WeaponCustomDescription.Text + "/W)")
            OverwriteInformation += "LONGD#" + viridnum + "(" + WeaponCustomDescription.Text + ")" + Chr(13)
        End If
        SND("/wLOOKD/z#" + viridnum + "/W(/c" + Extendeddesc + "/W)")
        OverwriteInformation += "LOOKD#" + viridnum + "(" + Extendeddesc + ")" + Chr(13)
        If aoe = "Melee" Then
            SND("/wEQUIP/z#" + viridnum + "/W(/cWeapon/W)")
            OverwriteInformation += "EQUIP#" + viridnum + "(Weapon)" + Chr(13)
        Else
            SND("/wEQUIP/z#" + viridnum + "/W(/cRange/W)")
            OverwriteInformation += "EQUIP#" + viridnum + "(Range)" + Chr(13)
        End If
        Dim tmp0 As Integer
        durability = Replace(durability, "%", "")
        For tmp0 = 1 To Len(durability) Step 1
            If Mid(durability, tmp0, 1) = ":" Then
                While Len(Mid(durability, 1, tmp0 - 1)) < 3 : durability = "0" + durability : tmp0 = InStr(durability, ":") : End While
                While Len(Mid(durability, tmp0 + 1, Len(durability))) < 3 : durability = Mid(durability, 1, tmp0) + "0" + Mid(durability, tmp0 + 1, Len(durability)) : End While
            End If
        Next
        While Len(lvlreq) < 3 : lvlreq = "0" + lvlreq : End While
        SND("/wPARID/z#" + viridnum + "/W(/c2," + Mid(WeaponType.Text, 1, 2) + "," + Mid(WeaponMaterial.Text, 1, 3) + "," + Mid(WeaponCraftsmanship.Text, 1, 2) + "," + Mid(WeaponQuality.Text, 1, 1) + "," + Mid(Damagetype, 1, 1) + "," + classspecific + "," + Mid(aoe, 1, 1) + "," + damage + "," + Mid(twohanded, 1, 1) + "," + lvlreq + "," + weight + "," + durability + "," + affects + "," + pa + "/W)")
        OverwriteInformation += "PARID#" + viridnum + "(2," + Mid(WeaponType.Text, 1, 2) + "," + Mid(WeaponMaterial.Text, 1, 3) + "," + Mid(WeaponCraftsmanship.Text, 1, 2) + "," + Mid(WeaponQuality.Text, 1, 1) + "," + Mid(Damagetype, 1, 1) + "," + classspecific + "," + Mid(aoe, 1, 1) + "," + damage + "," + Mid(twohanded, 1, 1) + "," + lvlreq + "," + weight + "," + durability + "," + affects + "," + pa + ")" + Chr(13)
        SND("/wWORTH/z#" + viridnum + "/W(/c" + worth + "/W)")
        OverwriteInformation += "WORTH#" + viridnum + "(" + worth + ")" + Chr(13)
        SND("/wENDTM/z#" + viridnum + "/W(/c" + ENDTM.Text + "/W)")
        OverwriteInformation += "ENDTM#" + viridnum + "(" + ENDTM.Text + "%p45)"
        If ERRORnum < 1 Then
            compileready = True
        Else
            SND("/rWeapon was /RNOT /rcompiled due to errors.")
        End If
    End Sub
    Private Sub CreateArmor(ByVal sender As System.Object, ByVal e As System.EventArgs)
        DetermineArmorFormat(Val(Mid(ArmorTypeBox.Text, 1, 3)))
        Dim lvlreq As String = ""
        Dim BashAC As String = "", SLashAC As String = "", PierceAC As String = "", FistAC As String = "", ExoticAC As String = ""
        Dim VOWEL As String
        Dim affects As String = ""
        Dim weight As String = ""
        Dim longd As String = ""
        Dim ERRORnum As Short = 0
        Dim VIRIDnum As String = "0"
        If LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "a" Then
            VOWEL = "An "
        ElseIf LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "e" Then
            VOWEL = "An "
        ElseIf LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "i" Then
            VOWEL = "An "
        ElseIf LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "o" Then
            VOWEL = "An "
        ElseIf LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "u" Then
            VOWEL = "An "
        Else
            VOWEL = "A "
        End If
        Dim suffix As String = Mid(ArmorSuffixBox.Text, 5, Len(ArmorSuffixBox.Text))
        If suffix <> "No magical suffix" Then suffix = " " + suffix Else suffix = ""
        Dim prefix As String = Mid(ArmorPrefixBox.Text, 5, Len(ArmorPrefixBox.Text))
        If prefix <> "No magical prefix" Then prefix = " " + prefix Else prefix = ""
        Dim addaffects As String = ""
        If prefix <> "" Then addaffects = prefix
        If suffix <> "" Then If prefix <> "" Then addaffects += "," + suffix Else addaffects = suffix
        Dim quality As Short = Val(Mid(ArmorQualityBox.Text, 1, 1))
        Dim qualityflag As String = ""
        If quality = 0 Then
            qualityflag = "//cW"
        ElseIf quality = 1 Then
            qualityflag = "//cB"
        ElseIf quality = 2 Then
            qualityflag = "//cM"
        ElseIf quality = 3 Then
            qualityflag = "//cY"
        End If
        Dim craftsmanship As String = Mid(ArmorCraftsmanshipBox.Text, 5, ArmorCraftsmanshipBox.Text.Length - 4)
        Dim material As String = LTrim(RTrim(Mid(ArmorMaterialBox.Text, 5, ArmorMaterialBox.Text.Length - 4)))
        'load the material, if the material fails to load it shows an error message, after that message application should exit
        If RetrieveMaterialQuality(material) = 0 Then Application.Exit()
        Dim type As String = Mid(ArmorTypeBox.Text, 5, ArmorTypeBox.Text.Length - 4)
        SND("/GLoading Item Database...")
        ItemData = GetFileContents(Debugger.DirItems, sErr) : OverwriteInformation = ""
        If Item_New.Checked = True Then
            If InStr(ItemData, "TOTAL#") > 0 Then
                Dim tmp1 As Integer
                For tmp1 = InStr(ItemData, "TOTAL#") To Len(ItemData) Step 1
                    If Mid(ItemData, tmp1, 1) = "(" Then
                        VIRIDnum = LTrim(Str(Val(Mid(ItemData, InStr(ItemData, "TOTAL#") + 6, tmp1 - InStr(ItemData, "TOTAL#") - 6)) + 1))
                        Exit For
                    End If
                Next
                For tmp1 = InStr(ItemData, "TOTAL#") To Len(ItemData) Step 1
                    If Mid(ItemData, tmp1, 1) = "(" Then
                        VIRIDnum = LTrim(Str(Val(Mid(ItemData, InStr(ItemData, "TOTAL#") + 6, tmp1 - InStr(ItemData, "TOTAL#") - 6)) + 1))
                        ItemData = Replace(ItemData, Mid(ItemData, InStr(ItemData, "TOTAL#"), 8 + Len(VIRIDnum) * 2), "TOTAL#" + VIRIDnum + "(" + VIRIDnum + ")")
                        Exit For
                    End If
                Next
            Else
                SND("/RERROR: Database corrupt!")
                ERRORnum += 1
            End If
        End If
        If Item_New.Checked = False Then
            OverwriteNum = LTrim(Str(Item_VNUM.Text))
            VIRIDnum = OverwriteNum
        End If
        SND("/wVIRID/z#" + VIRIDnum + "/W(/c" + VIRIDnum + "/W)")
        OverwriteInformation += "VIRID#" + VIRIDnum + "(" + VIRIDnum + ")" + Chr(13)
        SND("/wITEMT/z#" + VIRIDnum + "/W(/c5/W)")
        OverwriteInformation += "ITEMT#" + VIRIDnum + "(5)" + Chr(13)
        SND("/wITEMC/z#" + VIRIDnum + "/W(/c00/W)")
        OverwriteInformation += "ITEMC#" + VIRIDnum + "(00)" + Chr(13)
        If A_CustomName.Checked = False Then
            If MA = "Yes" Then
                longd = qualityflag + VOWEL + craftsmanship + prefix + " " + material + type + suffix
                SND("/wITEMN/z#" + VIRIDnum + "/W(/c" + qualityflag + VOWEL + craftsmanship + prefix + " " + material + type + suffix + "/W)")
                OverwriteInformation += "ITEMN#" + VIRIDnum + "(" + Replace(qualityflag, "/c", "") + VOWEL + craftsmanship + prefix + " " + material + type + suffix + ")" + Chr(13)
            Else
                longd = qualityflag + VOWEL + craftsmanship + prefix + type + suffix
                SND("/wITEMN/z#" + VIRIDnum + "/W(/c" + qualityflag + VOWEL + craftsmanship + prefix + type + suffix + "/W)")
                OverwriteInformation += "ITEMN#" + VIRIDnum + "(" + Replace(qualityflag, "/c", "") + VOWEL + craftsmanship + prefix + type + suffix + ")" + Chr(13)
            End If
        Else
            SND("/wITEMN/z#" + VIRIDnum + "/W(/c" + qualityflag + ArmorCustomName.Text + "/W)")
            OverwriteInformation += "ITEMN#" + VIRIDnum + "(" + Replace(qualityflag, "/c", "") + ArmorCustomName.Text + ")" + Chr(13)
        End If
        If requiredlevel > LV Then LV = requiredlevel
        While Len(LV) < 3 : LV = "0" + LV : End While
        Dim Equipprof As String = PR
        If MA = "yes" Then
            If Equipprof = armortype And Equipprof <> "" Then Equipprof += ", and " + armortype
            If Equipprof = "" Then Equipprof = armortype
        End If
        If MA = "Yes" Then
            BashAC = Str(Val(bash) + Val(BA))
            SLashAC = Str(Val(slash) + Val(SA))
            PierceAC = Str(Val(pierce) + Val(PA))
            FistAC = Str(Val(fist) + Val(FA))
            ExoticAC = Str(Val(exotic) + Val(EA))
        Else
            BashAC = BA
            SLashAC = SA
            PierceAC = PA
            FistAC = FA
            ExoticAC = +EA
        End If
        If MA = "No" Then
            Valuetemp = CO
            affects = "None"
        Else
            If affects <> "" Then If addaffects <> "" Then addaffects = "," + addaffects
            If affects & addaffects = "" Then affects = "None"
            affects = affects + addaffects
            comworth2(CO, value)
        End If
        If MA = "No" Then
            durability = "30:95%"
            If ET = "Head" Then
                weight = LTrim(Str(Val(WE) * 1)) + " Stones"
            ElseIf ET = "Neck" Then
                weight = LTrim(Str(Val(WE) * 1)) + " Stones"
            ElseIf ET = "Chest" Then
                weight = LTrim(Str(Val(WE) * 4)) + " Stones"
            ElseIf ET = "Shoulders" Then
                weight = LTrim(Str(Val(WE) * 2)) + " Stones"
            ElseIf ET = "Arms" Then
                weight = LTrim(Str(Val(WE) * 2)) + " Stones"
            ElseIf ET = "Wrists" Then
                weight = LTrim(Str(Val(WE) * 2)) + " Stones"
            ElseIf ET = "Hands" Then
                weight = LTrim(Str(Val(WE) * 2)) + " Stones"
            ElseIf ET = "Back" Then
                weight = LTrim(Str(Val(WE) * 1)) + " Stones"
            ElseIf ET = "Waist" Then
                weight = LTrim(Str(Val(WE) * 1)) + " Stones"
            ElseIf ET = "Legs" Then
                weight = LTrim(Str(Val(WE) * 3)) + " Stones"
            ElseIf ET = "Feet" Then
                weight = LTrim(Str(Val(WE) * 3)) + " Stones"
            ElseIf ET = "Shield" Then
                weight = LTrim(Str(Val(WE) * 5)) + " Stones"
            End If
        Else
            If ET = "Head" Then
                weight = LTrim(Str(Val(WE) * 1)) + " Stones"
            ElseIf ET = "Neck" Then
                weight = LTrim(Str(Val(WE) * 1)) + " Stones"
            ElseIf ET = "Chest" Then
                weight = LTrim(Str(Val(WE) * 4)) + " Stones"
            ElseIf ET = "Shoulders" Then
                weight = LTrim(Str(Val(WE) * 2)) + " Stones"
            ElseIf ET = "Arms" Then
                weight = LTrim(Str(Val(WE) * 2)) + " Stones"
            ElseIf ET = "Wrists" Then
                weight = LTrim(Str(Val(WE) * 2)) + " Stones"
            ElseIf ET = "Hands" Then
                weight = LTrim(Str(Val(WE) * 2)) + " Stones"
            ElseIf ET = "Back" Then
                weight = LTrim(Str(Val(WE) * 1)) + " Stones"
            ElseIf ET = "Waist" Then
                weight = LTrim(Str(Val(WE) * 1)) + " Stones"
            ElseIf ET = "Legs" Then
                weight = LTrim(Str(Val(WE) * 3)) + " Stones"
            ElseIf ET = "Feet" Then
                weight = LTrim(Str(Val(WE) * 3)) + " Stones"
            ElseIf ET = "Shield" Then
                weight = LTrim(Str(Val(WE) * 5)) + " Stones"
            End If
        End If
        If LCase(Mid(type, 1, 1)) = "a" Then
            VOWEL = "An"
        ElseIf LCase(Mid(type, 1, 1)) = "e" Then
            VOWEL = "An"
        ElseIf LCase(Mid(type, 1, 1)) = "i" Then
            VOWEL = "An"
        ElseIf LCase(Mid(type, 1, 1)) = "o" Then
            VOWEL = "An"
        ElseIf LCase(Mid(type, 1, 1)) = "u" Then
            VOWEL = "An"
        Else
            VOWEL = "A"
        End If
        Dim tmp0 As Integer
        durability = Replace(durability, "%", "")
        For tmp0 = 1 To Len(durability) Step 1
            If Mid(durability, tmp0, 1) = ":" Then
                While Len(Mid(durability, 1, tmp0 - 1)) < 3 : durability = "0" + durability : tmp0 = InStr(durability, ":") : End While
                While Len(Mid(durability, tmp0 + 1, Len(durability))) < 3 : durability = Mid(durability, 1, tmp0) + "0" + Mid(durability, tmp0 + 1, Len(durability)) : End While
            End If
        Next
        SND("/wSHORT/z#" + VIRIDnum + "/W(/c" + qualityflag + VOWEL + type + "/W)")
        OverwriteInformation += "SHORT#" + VIRIDnum + "(" + Replace(qualityflag, "/c", "") + VOWEL + type + ")" + Chr(13)
        If ArmorCustomDescription.Enabled = True Then
            SND("/wLONGD/z#" + VIRIDnum + "/W(/c" + ArmorCustomDescription.Text + "/W)")
            OverwriteInformation += "LONGD#" + VIRIDnum + "(" + ArmorCustomDescription.Text + ")" + Chr(13)
        Else
            If LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "a" Then
                VOWEL = "An "
            ElseIf LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "e" Then
                VOWEL = "An "
            ElseIf LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "i" Then
                VOWEL = "An "
            ElseIf LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "o" Then
                VOWEL = "An "
            ElseIf LCase(Mid(ArmorCraftsmanshipBox.Text, 5, 1)) = "u" Then
                VOWEL = "An "
            Else
                VOWEL = "A "
            End If
            If A_CustomName.Checked = False Then
                If MA = "Yes" Then
                    longd = qualityflag + VOWEL + craftsmanship + prefix + " " + material + type + suffix
                    SND("/wLONGD/z#" + VIRIDnum + "/W(/c" + VOWEL + craftsmanship + prefix + " " + material + type + suffix + " is here./W)")
                    OverwriteInformation += "LONGD#" + VIRIDnum + "(" + VOWEL + craftsmanship + prefix + " " + material + type + suffix + " is here.)" + Chr(13)
                Else
                    longd = qualityflag + VOWEL + craftsmanship + prefix + type + suffix
                    SND("/wLONGD/z#" + VIRIDnum + "/W(/c" + VOWEL + craftsmanship + prefix + type + suffix + " is here./W)")
                    OverwriteInformation += "LONGD#" + VIRIDnum + "(" + VOWEL + craftsmanship + prefix + type + suffix + " is here.)" + Chr(13)
                End If
            Else
                SND("/wLONGD/z#" + VIRIDnum + "/W(/c" + ArmorCustomName.Text + " is here./W)")
                OverwriteInformation += "LONGD#" + VIRIDnum + "(" + ArmorCustomName.Text + " is here.)" + Chr(13)
            End If
        End If
        SND("/wLOOKD/z#" + VIRIDnum + "/W(/c" + AT + "/W)")
        OverwriteInformation += "LOOKD#" + VIRIDnum + "(" + AT + ")" + Chr(13)
        SND("/wEQUIP/z#" + VIRIDnum + "/W(/c" + ET + "/W)")
        OverwriteInformation += "EQUIP#" + VIRIDnum + "(" + ET + ")" + Chr(13)
        SND("/wPARID/z#" + VIRIDnum + "/W(/c1," + Mid(ArmorTypeBox.Text, 1, 3) + "," + Mid(ArmorMaterialBox.Text, 1, 3) + "," + Mid(ArmorCraftsmanshipBox.Text, 1, 2) + "," + Mid(ArmorQualityBox.Text, 1, 1) + "," + LTrim(BashAC) + "," + LTrim(SLashAC) + "," + LTrim(PierceAC) + "," + LTrim(FistAC) + "," + LTrim(ExoticAC) + "," + Mid(SE, 1, 1) + "," + LV + "," + Equipprof + "," + weight + "," + durability + "," + affects + "," + PU + "/W)")
        OverwriteInformation += "PARID#" + VIRIDnum + "(1," + Mid(ArmorTypeBox.Text, 1, 3) + "," + Mid(ArmorMaterialBox.Text, 1, 3) + "," + Mid(ArmorCraftsmanshipBox.Text, 1, 2) + "," + Mid(ArmorQualityBox.Text, 1, 1) + "," + LTrim(BashAC) + "," + LTrim(SLashAC) + "," + LTrim(PierceAC) + "," + LTrim(FistAC) + "," + LTrim(ExoticAC) + "," + Mid(SE, 1, 1) + "," + LV + "," + Equipprof + "," + weight + "," + durability + "," + affects + "," + PU + ")" + Chr(13)
        SND("/wWORTH/z#" + VIRIDnum + "/W(/c" + LTrim(Valuetemp) + "/W)")
        OverwriteInformation += "WORTH#" + VIRIDnum + "(" + LTrim(Valuetemp) + ")" + Chr(13)
        SND("/wENDTM/z#" + VIRIDnum + "/W(/c" + ENDTM.Text + "/W)")
        OverwriteInformation += "ENDTM#" + VIRIDnum + "(" + ENDTM.Text + "%p45)"
        If ERRORnum < 1 Then
            compileready = True
        Else
            SND("/rWeapon was /RNOT /rcompiled due to errors.")
        End If
    End Sub
    Private Sub CreateMiscellaneous(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim Misc As String = LTrim(RTrim(Replace(Mid(ListBox1.SelectedItem, 6, ListBox1.SelectedItem.length - 5), ".", "")))
        Dim miscnum As String = Mid(ListBox1.SelectedItem, 1, 3)
        Dim VIRIDnum As String = ""
        Dim ERRORnum As Short = 0
        SND("/GLoading Item Database...")
        ItemData = GetFileContents(Debugger.DirItems, sErr) : OverwriteInformation = ""
        If Item_New.Checked = True Then
            If InStr(ItemData, "TOTAL#") > 0 Then
                Dim tmp1 As Integer
                For tmp1 = InStr(ItemData, "TOTAL#") To Len(ItemData) Step 1
                    If Mid(ItemData, tmp1, 1) = "(" Then
                        VIRIDnum = LTrim(Str(Val(Mid(ItemData, InStr(ItemData, "TOTAL#") + 6, tmp1 - InStr(ItemData, "TOTAL#") - 6)) + 1))
                        Exit For
                    End If
                Next
                For tmp1 = InStr(ItemData, "TOTAL#") To Len(ItemData) Step 1
                    If Mid(ItemData, tmp1, 1) = "(" Then
                        VIRIDnum = LTrim(Str(Val(Mid(ItemData, InStr(ItemData, "TOTAL#") + 6, tmp1 - InStr(ItemData, "TOTAL#") - 6)) + 1))
                        ItemData = Replace(ItemData, Mid(ItemData, InStr(ItemData, "TOTAL#"), 8 + Len(VIRIDnum) * 2), "TOTAL#" + VIRIDnum + "(" + VIRIDnum + ")")
                        Exit For
                    End If
                Next
            Else
                SND("/RERROR: Database corrupt!")
                ERRORnum += 1
            End If
            If Item_New.Checked = False Then
                OverwriteNum = LTrim(Str(Item_VNUM.Text))
                VIRIDnum = OverwriteNum
            End If
        End If
        SND("/wVIRID/z#" + VIRIDnum + "/W(/c" + VIRIDnum + "/W)")
        OverwriteInformation += "VIRID#" + VIRIDnum + "(" + VIRIDnum + ")" + Chr(13)
        If miscproptype.Text = "Static Environmental Prop" Then
            SND("/wITEMT/z#" + VIRIDnum + "/W(/c0/W)")
            OverwriteInformation += "ITEMT#" + VIRIDnum + "(0)" + Chr(13)
        ElseIf miscproptype.Text = "Static Environmental Bag" Then
            SND("/wITEMT/z#" + VIRIDnum + "/W(/c1/W)")
            OverwriteInformation += "ITEMT#" + VIRIDnum + "(1)" + Chr(13)
        ElseIf miscproptype.Text = "Dynamic Environmental Prop" Then
            SND("/wITEMT/z#" + VIRIDnum + "/W(/c2/W)")
            OverwriteInformation += "ITEMT#" + VIRIDnum + "(2)" + Chr(13)
        ElseIf miscproptype.Text = "Dynamic Environmental Prop High Respawn" Then
            SND("/wITEMT/z#" + VIRIDnum + "/W(/c3/W)")
            OverwriteInformation += "ITEMT#" + VIRIDnum + "(3)" + Chr(13)
        ElseIf miscproptype.Text = "Dynamic Environmental Bag" Then
            SND("/wITEMT/z#" + VIRIDnum + "/W(/c4/W)")
            OverwriteInformation += "ITEMT#" + VIRIDnum + "(4)" + Chr(13)
        ElseIf miscproptype.Text = "Static Regular Item" Then
            SND("/wITEMT/z#" + VIRIDnum + "/W(/c5/W)")
            OverwriteInformation += "ITEMT#" + VIRIDnum + "(5)" + Chr(13)
        ElseIf miscproptype.Text = "Money" Then
            SND("/wITEMT/z#" + VIRIDnum + "/W(/c6/W)")
            OverwriteInformation += "ITEMT#" + VIRIDnum + "(6)" + Chr(13)
        Else
            ERRORnum += 1
        End If
        SND("/wITEMC/z#" + VIRIDnum + "/W(/c" + Mid(MISCTYPE.Text, 1, 2) + "/W)")
        OverwriteInformation += "ITEMC#" + VIRIDnum + "(" + Mid(MISCTYPE.Text, 1, 2) + ")" + Chr(13)
        SND("/wITEMN/z#" + VIRIDnum + "/W(/c" + Misc + "/W)")
        OverwriteInformation += "ITEMN#" + VIRIDnum + "(" + Misc + ")" + Chr(13)
        SND("/wSHORT/z#" + VIRIDnum + "/W(/c" + MiscellaneousCustomName.Text + "/W)")
        OverwriteInformation += "SHORT#" + VIRIDnum + "(" + MiscellaneousCustomName.Text + ")" + Chr(13)
        SND("/wLONGD/z#" + VIRIDnum + "/W(/c" + MiscellaneousLongDescription.Text + "/W)")
        OverwriteInformation += "LONGD#" + VIRIDnum + "(" + MiscellaneousLongDescription.Text + ")" + Chr(13)
        SND("/wLOOKD/z#" + VIRIDnum + "/W(/c" + MiscellaneousExtendedDescription.Text + "/W)")
        OverwriteInformation += "LOOKD#" + VIRIDnum + "(" + MiscellaneousExtendedDescription.Text + ")" + Chr(13)
        SND("/wEQUIP/z#" + VIRIDnum + "/W(/cNo/W)")
        OverwriteInformation += "EQUIP#" + VIRIDnum + "(No)" + Chr(13)
        SND("/wPARID/z#" + VIRIDnum + "/W(/c0," + Weightbox.Text + "/W)")
        OverwriteInformation += "PARID#" + VIRIDnum + "(0," + Weightbox.Text + ")" + Chr(13)
        Dim Tmpstr As String
        If Mid(MISCTYPE.Text, 1, 2) = "00" Then 'furniture
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c52 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c83 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c7 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c9 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c11 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c21 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c74 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c84 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c24 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c46 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "021" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "022" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c14 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "023" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "024" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c21 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "025" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "026" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c36 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "027" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c44 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "028" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "029" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "030" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "031" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c17 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "032" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c23 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "033" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "034" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "035" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "036" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "037" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "038" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c24 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "039" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "040" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "041" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "042" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "043" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "044" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "045" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "046" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "047" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "048" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "049" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "050" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "051" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c48 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "052" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c88 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "053" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "054" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "055" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c38 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "056" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c48 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "057" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c58 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "058" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "059" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c38 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "060" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c78 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "061" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c98 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "062" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "063" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "064" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "065" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "066" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "067" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c11 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "068" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "069" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "070" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "071" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "072" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "073" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "074" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "075" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "076" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "077" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "078" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "079" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "080" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "081" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c7 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "082" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "083" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c29 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "084" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "085" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "086" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "087" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "088" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c29 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "089" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "090" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "091" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "092" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c29 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "093" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "094" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "095" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "096" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "097" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "098" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c23 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "099" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "100" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "101" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "102" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "103" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "104" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "105" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "106" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "107" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "108" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "109" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c90 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "110" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "111" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "112" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "113" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "114" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "115" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c9 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "116" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c11 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "117" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "118" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c13 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "119" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "120" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "121" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "122" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "123" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c55 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "124" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "125" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "126" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "127" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c45 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "128" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "129" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c70 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "130" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "131" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "132" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "133" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "134" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "135" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c45 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "136" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "137" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c55 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "138" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "139" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "140" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "141" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "142" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "143" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "144" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "01" Then 'Lights
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c75 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "02" Then 'Outfits
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c45 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "03" Then 'Instruments
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c13 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c17 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c19 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c14 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c7 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "04" Then 'Trinkets
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "05" Then 'Gambling
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c7 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c13 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "06" Then 'Books
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c16 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "07" Then 'Magical items
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "08" Then 'Herbs and Reagents
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c60 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c84 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c43 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c21 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "021" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c65 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "022" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "023" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c19 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "024" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c98 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "025" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c26 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "026" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c33 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "027" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c45 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "028" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c76 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "029" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c88 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "030" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "031" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c21 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "032" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c74 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "033" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c99 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "034" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c24 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "035" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "036" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c86 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "037" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c66 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "038" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c68 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "039" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c65 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "040" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c91 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "041" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c70 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "042" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "043" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c33 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "044" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c32 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "045" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c42 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "09" Then 'Containers
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c45 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c23 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "10" Then 'Rock Climbing
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c19 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c21 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c46 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c16 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "11" Then 'Treasure
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c45 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c65 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c65 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c45 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c65 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c75 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c60 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c75 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "021" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "022" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "023" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "024" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "025" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "026" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "027" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "028" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "029" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "030" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "12" Then 'Tailoring
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "13" Then 'Leathercrafting
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "14" Then 'Potions
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "15" Then 'Thieves Tools
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "16" Then 'Kits
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "17" Then 'Rocks
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "18" Then 'Torture
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "19" Then 'Living Charters
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c180 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c180 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c890 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c890 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5480 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5480 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10670 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10670 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c235810 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c235810 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1000000 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1000000 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "021" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "022" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "023" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "024" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "025" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c180 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "026" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c890 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "027" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5480 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "028" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "029" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "030" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "031" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "032" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "033" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c180 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "034" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c890 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "035" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5480 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "036" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "037" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "038" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "039" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "040" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "041" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c180 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "042" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c890 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "043" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5480 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "044" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "045" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "046" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "047" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "048" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "049" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c180 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "050" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c890 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "051" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5480 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "052" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "053" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "054" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "055" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "056" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "057" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c180 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "058" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c890 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "059" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5480 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "20" Then 'Tinderbox and flint
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "21" Then 'Packs
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "22" Then 'Food
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "021" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "022" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "023" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "024" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "025" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "026" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "027" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "028" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "029" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "030" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "031" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "032" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "033" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            Else
                Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "23" Then 'Maps
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "24" Then 'Bridles
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c60 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c48 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c55 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "25" Then 'Soaps
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "26" Then 'Pipes
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "27" Then 'Cooking Supplies
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "28" Then 'Hunting Supplies
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "29" Then 'Transportation
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c44 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c76 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c75 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c21 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c13 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c9 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "021" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "022" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "023" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "024" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "025" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c7 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "026" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "027" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "028" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "029" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "030" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "031" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "032" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c95 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "033" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "034" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "035" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c39 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "036" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c41 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "037" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c17 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "038" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c17 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "039" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "040" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c16 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "041" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c42 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "042" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c38 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "043" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c39 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "044" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "045" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c31 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "046" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c29 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "047" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "048" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c24 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "049" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c23 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "050" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "051" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "052" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c100 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "053" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c100 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "054" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c100 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "055" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c100 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "30" Then 'Medical Supplies
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c50 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "31" Then 'Alcoholic Beverages
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c33 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c31 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c29 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c26 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c28 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c27 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c21 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c21 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c26 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c44 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c36 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "021" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c52 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "022" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c56 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "023" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c53 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "024" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "025" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c14 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "026" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "027" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "028" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c25 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "029" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c31 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "030" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c35 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "031" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c38 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "032" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c16 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "033" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "034" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "035" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "036" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "037" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c11 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "038" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "039" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c54 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "040" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c33 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "041" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c36 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "042" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "043" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "044" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "045" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c47 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "046" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c51 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "047" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c55 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "32" Then 'Scabbard
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "33" Then 'Tools
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c13 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c18 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c23 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c8 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c11 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c10 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c13 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c9 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "34" Then 'Pets
            If miscnum = "000" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "001" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "002" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c76 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "003" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c69 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "004" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c99 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "005" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c95 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "006" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "007" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c70 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "008" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c69 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "009" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c40 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "010" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c39 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "011" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "012" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c39 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "013" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "014" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "015" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "016" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "017" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c4 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "018" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c6 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "019" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c9 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "020" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "021" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "022" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c22 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "023" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "024" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "025" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "026" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c2 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "027" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c12 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "028" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c9 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "029" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "030" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "031" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c3 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "032" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c20 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "033" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "034" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c78 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "035" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c99 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "036" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c5 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "037" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c75 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "038" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c55 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "039" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c80 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "040" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c63 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "041" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Sovern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "042" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c15 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            ElseIf miscnum = "043" Then : Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c30 Dover/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
            End If
        ElseIf Mid(MISCTYPE.Text, 1, 2) = "35" Then 'Harvestable Food
            Tmpstr = "/wWORTH/z#" + VIRIDnum + "/W(/c1 Vern/W)" : SND(Tmpstr) : OverwriteInformation += Replace(Replace(Replace(Replace(Tmpstr, "/W", ""), "/w", ""), "/z", ""), "/c", "") + Chr(13)
        End If
        SND("/wENDTM/z#" + VIRIDnum + "/W(/c" + ENDTM.Text + "/W)")
        OverwriteInformation += "ENDTM#" + VIRIDnum + "(" + ENDTM.Text + "%p45)"
        If ERRORnum < 1 Then
            compileready = True
        Else
            SND("/rWeapon was /RNOT /rcompiled due to errors.")
        End If
    End Sub
#End Region
#Region "Custom Variable Changes"
    Private Sub MiscellaneousSubTypeShow(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MISCTYPE.SelectedIndexChanged
        ListBox1.Items.Clear()
        AddToList(MISCTYPE.Text)
        ListBox1.SelectedIndex = 0
    End Sub
    Private Sub ldescchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A_CustomLong.CheckedChanged
        If A_CustomLong.Checked = True Then
            ArmorCustomDescription.Enabled = True
        Else
            ArmorCustomDescription.Enabled = False
        End If
    End Sub
    Private Sub wldescchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles W_CustomLong.CheckedChanged
        If W_CustomLong.Checked = True Then
            WeaponCustomDescription.Enabled = True
        Else
            WeaponCustomDescription.Enabled = False
        End If
    End Sub
    Private Sub cnwchange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles W_CustomName.CheckedChanged
        If W_CustomName.Checked = True Then
            WeaponCustomName.Enabled = True
        Else
            WeaponCustomName.Enabled = False
        End If
    End Sub
    Private Sub cnachange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A_CustomName.CheckedChanged
        If A_CustomName.Checked = True Then
            ArmorCustomName.Enabled = True
        Else
            ArmorCustomName.Enabled = False
        End If
    End Sub
#End Region
    Private Sub SaveItem()
        If Item_NotNew.Checked = False Then 'this creates a new item
            bAns = SaveTextToFile(ItemData + Chr(13) + Chr(13) + OverwriteInformation, Debugger.DirItems, sErr) 'comment this when configuring editing.
            SND("/GSaved successfully!")
        Else 'this saves over a pre-existing item. When editing comment the bAns lines to prevent saving to the database.
            bAns = SaveTextToFile(Replace(ItemData, Mid(ItemData, InStr(ItemData, "VIRID#" + OverwriteNum + "("), InStr(ItemData, "VIRID#" + LTrim(Str(Val(OverwriteNum) + 1)) + "(") - InStr(ItemData, "VIRID#" + OverwriteNum + "(")), OverwriteInformation + Chr(13) + Chr(13), 1, 1), Debugger.DirItems, sErr)
            SND("/gSaved successfully!")
        End If
    End Sub
    Private Sub ItemEditorLoaded(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Application.AddMessageFilter(Me)
        AddToList("Index", True) 'loads miscellaneous type list index
        MISCTYPE.SelectedIndex = 0 'loads the first miscellaneous type list available
        LoadItemList() 'loads saved custom item list
        Item_VNUM.Text = LTrim(Str(Val(TotalItems) + 1))
        ItemList.Text = ItemList.Items(0)
    End Sub
    Private Sub LoadItemList()
        ItemList.Items.Clear()
        ItemList.Items.Add("0. Clear Current Template")
        Dim int2 As Integer
        Dim int3 As Integer
        Dim int4 As Integer
        Dim CurNum As Integer = 1
        Dim str1 As String = Replace(Str(CurNum), " ", "")
        ItemData = GetFileContents(Debugger.DirItems, sErr)
        Dim astr As String = ""
        Dim aint As Integer
        Dim itemn As String = ""
        For aint = InStr(ItemData, "TOTAL#") To Len(ItemData) Step 1
            If Mid(ItemData, aint, 1) = "(" Then
                astr = LTrim(Str(Val(Mid(ItemData, InStr(ItemData, "TOTAL#") + 6, aint - InStr(ItemData, "TOTAL#") - 6))))
                TotalItems = astr
                ItemData = Replace(ItemData, Mid(ItemData, InStr(ItemData, "TOTAL#"), 8 + Len(astr) * 2), "TOTAL#" + astr + "(" + astr + ")")
                Exit For
            End If
        Next
        For int2 = 1 To Val(astr) Step 1
            For int3 = InStr(ItemData, "SHORT#" + LTrim(Str(int2))) To Len(ItemData) Step 1
                If Mid(ItemData, int3, 1) = ")" Then
                    For int4 = InStr(ItemData, "ITEMN#" + LTrim(Str(int2))) To Len(ItemData) Step 1
                        If Mid(ItemData, int4, 1) = ")" Then
                            itemn = Mid(ItemData, InStr(ItemData, "ITEMN#" + LTrim(Str(int2))) + 7 + Len(LTrim(Str(int2))), int4 - 14 - Len(LTrim(Str(int2))) * 2 - InStr(ItemData, "ITEMN#" + LTrim(Str(int2))) + 7 + Len(LTrim(Str(int2))))
                            Exit For
                        End If
                    Next
                    ItemList.Items.Add(LTrim(Str(int2)) + ". " + Mid(ItemData, InStr(ItemData, "SHORT#" + LTrim(Str(int2))) + 7 + Len(LTrim(Str(int2))), int3 - 14 - Len(LTrim(Str(int2))) * 2 - InStr(ItemData, "SHORT#" + LTrim(Str(int2))) + 7 + Len(LTrim(Str(int2)))) + " (" + itemn + ")")
                    Exit For
                End If
            Next
        Next
    End Sub
    Private Sub ClearForm()
        'no current need to clear form at the moment
        '"Clear Current Template" was selected
    End Sub
    Private Sub LoadItem(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemList.SelectedIndexChanged
        'declare xml dimensions
        Dim m_xmld As XmlDocument
        Dim m_nodelist As XmlNodeList
        Dim m_node As XmlNode
        'other dimensions
        Dim ItemNumber As String 'this is the item number to load
        Dim theItemNumber As String 'this is the item number currently loaded in xml data
        Dim CurNum As Short 'temporary number used to find the itemnumber in the first for statement
        Dim ItemType, MatType, CraftType, QualityType As Short
        Dim itemParamId As String 'details whether it's a weapon, armor, or misc item
        'begin subroutine
        DebugOutput.Text = "" 'clears debug output text before loading new item
        For CurNum = 1 To Len(ItemList.Text) 'tmp1 recurses through itemlist text until it finds "." which indicates that all characters before the period is teh item number
            If Mid(ItemList.Text, CurNum, 1) = "." Then 'found the '.'
                ItemNumber = Mid(ItemList.Text, 1, CurNum - 1) 'set the item number to the previous characters
                Exit For
            End If
        Next
        If ItemNumber = "0" Then
            ClearForm()
            Exit Sub
        End If
        Try
            m_xmld = New XmlDocument()
            m_xmld.Load(Replace(Replace(Debugger.DirItems, ".TG", ".xml"), "\\", "\"))
            m_nodelist = m_xmld.SelectNodes("/itemlist/item")
            For Each m_node In m_nodelist
                theItemNumber = m_node.Attributes.GetNamedItem("number").Value 'item number
                If theItemNumber = ItemNumber Then
                    itemParamId = m_node.ChildNodes.Item(7).Attributes.GetNamedItem("type").Value
                    If itemParamId = "Armor" Then
                        ItemType = Val(m_node.ChildNodes.Item(7).ChildNodes.Item(0).InnerText) 'type
                        MatType = Val(m_node.ChildNodes.Item(7).ChildNodes.Item(1).InnerText) 'material
                        CraftType = Val(m_node.ChildNodes.Item(7).ChildNodes.Item(2).InnerText) 'craftsmanship
                        QualityType = Val(m_node.ChildNodes.Item(7).ChildNodes.Item(3).InnerText) 'quality
                        ArmorTypeBox.SelectedIndex = ItemType 'sets the perspective armor type to the type identified which in turn sets all stats like ac and stuff automatically
                        ArmorMaterialBox.SelectedIndex = MatType 'sets the perspective matieral type to the type identified which in turn sets all other stats necessary at saving
                        ArmorCraftsmanshipBox.SelectedIndex = CraftType 'set the craft type to correct index
                        ArmorQualityBox.SelectedIndex = QualityType 'set the quality type to the correct index
                        FormDevice.SelectedTab = ArmorTab 'open the armor type, just loaded an item
                        A_CustomLong.Checked = True
                        A_CustomName.Checked = True
                        If SupressNotification.Checked = False Then MessageBox.Show("Note that magical affects aren't loaded due to incompatabilities with older database versions.", "Notification", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                        'the following are if we needed to load the other perspective stats of the item, which we don't as they're loaded automatically and inferred from the information already gathered. This is for guidance
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(4) 'bashac
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(5) 'slashac
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(6) 'pierceac
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(7) 'fistac
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(8) 'exoticac
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(9) 'sexrequirement
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(10) 'levelrequirement
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(11) 'proficiency
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(12) 'weight
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(13) 'durability
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(14) 'affect
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(15) 'purchasablearea
                    ElseIf itemParamId = "Weapon" Then
                        ItemType = Val(m_node.ChildNodes.Item(7).ChildNodes.Item(0).InnerText) 'type
                        MatType = Val(m_node.ChildNodes.Item(7).ChildNodes.Item(1).InnerText) 'material
                        CraftType = Val(m_node.ChildNodes.Item(7).ChildNodes.Item(2).InnerText) 'craftsmanship
                        QualityType = Val(m_node.ChildNodes.Item(7).ChildNodes.Item(3).InnerText) 'quality
                        WeaponType.SelectedIndex = ItemType 'sets the perspective weapon type to the type identified which when saving sets all other stats like damagetype and levelrequirement
                        WeaponMaterial.SelectedIndex = MatType 'sets the perspective material type to the type identified in the weapon which sets other stats like durability automatically
                        WeaponCraftsmanship.SelectedIndex = CraftType 'set the craft type tot eh correct index
                        WeaponQuality.SelectedIndex = QualityType 'set the quality type to the correct index
                        W_CustomLong.Checked = True
                        W_CustomName.Checked = True
                        FormDevice.SelectedTab = WeaponTab
                        If SupressNotification.Checked = False Then MessageBox.Show("Note that magical affects aren't loaded due to incompatabilities with older database versions.", "Notification", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                        'the following are if we needed to load the other perspective stats of the item which we don't as they're loaded automatically and inferred from the information already gathered. this is for guidance
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'type
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'material
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'craftsmanship
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'quality
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'damagetype
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'classspecific
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'areaofaffect
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'damage
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'twohanded
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'levelrequirement
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'weight
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'durability
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'affect
                        'm_node.ChildNodes.Item(7).ChildNodes.Item(0) 'purchasablearea
                    ElseIf itemParamId = "Misc" Then
                        FormDevice.SelectedTab = MiscTab
                        Weightbox.Text = Replace(m_node.ChildNodes.Item(7).ChildNodes.Item(0).InnerText, " Stones", "") 'weight
                    End If
                    'below is the reference for the only other gathered stats that could be gathered from the item.
                    'Dim itemType = m_node.ChildNodes.Item(0).InnerText
                    'Dim itemCategory = m_node.ChildNodes.Item(1).InnerText
                    'Dim itemName = m_node.ChildNodes.Item(2).InnerText
                    'Dim itemShort = m_node.ChildNodes.Item(3).InnerText
                    'Dim itemLong = m_node.ChildNodes.Item(4).InnerText
                    'Dim itemLook = m_node.ChildNodes.Item(5).InnerText
                    'Dim itemEquip = m_node.ChildNodes.Item(6).InnerText
                    'Dim itemWorth = m_node.childnodes.item(8).innertext
                    'Dim itemComments=m_node.childnodes.item(9).innertext
                    'now load the short string
                    If itemParamId = "Armor" Then
                        ArmorCustomName.Text = m_node.ChildNodes.Item(3).InnerText
                    ElseIf itemParamId = "Weapon" Then
                        WeaponCustomName.Text = m_node.ChildNodes.Item(3).InnerText
                    ElseIf itemParamId = "Misc" Then
                        MiscellaneousCustomName.Text = m_node.ChildNodes.Item(3).InnerText
                    End If
                    'now load the long description
                    If itemParamId = "Armor" Then
                        ArmorCustomDescription.Text = m_node.ChildNodes.Item(4).InnerText
                    ElseIf itemParamId = "Weapon" Then
                        WeaponCustomDescription.Text = m_node.ChildNodes.Item(4).InnerText
                    ElseIf itemParamId = "Misc" Then
                        MiscellaneousExtendedDescription.Text = m_node.ChildNodes.Item(4).InnerText
                    End If
                    'now load the comments
                    ENDTM.Text = m_node.ChildNodes.Item(9).InnerText
                    'now ensure that the preview of the item once it's loaded is with the correct vnum
                    Item_NotNew.Checked = True
                    OverwriteNum = ItemNumber
                    If itemParamId = "Armor" Then
                        CreateArmor(0, EventArgs.Empty)
                    ElseIf itemParamId = "Weapon" Then
                        CreateWeapon(0, EventArgs.Empty)
                    ElseIf itemParamId = "Misc" Then
                        CreateMiscellaneous(0, EventArgs.Empty)
                    End If
                    Exit For
                End If
            Next
        Catch errorVariable As Exception
            MessageBox.Show(errorVariable.ToString())
        End Try
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button12.Click, Button10.Click
        If FormDevice.SelectedIndex = 0 Then 'weapon
            CreateWeapon(0, EventArgs.Empty)
        ElseIf FormDevice.SelectedIndex = 1 Then 'armor
            CreateArmor(0, EventArgs.Empty)
        ElseIf FormDevice.SelectedIndex = 2 Then 'misc
            CreateMiscellaneous(0, EventArgs.Empty)
        End If
        SaveItem()
        FormDevice.SelectedTab = debugtab
    End Sub
End Class